home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / adxport.int < prev    next >
Text File  |  1996-04-08  |  2KB  |  63 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   ADXPORT.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdXPort;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages,
  18.   Classes, Graphics, Controls,
  19.   Forms, Dialogs, ExtCtrls, StdCtrls,
  20.   AdMisc, AdPort;
  21.  
  22. type
  23.   TComPortOptions = class(TForm)
  24.     FlowControlBox: TGroupBox;
  25.     Label1: TLabel;
  26.     Label2: TLabel;
  27.     DTRRTS: TCheckBox;
  28.     RTSCTS: TCheckBox;
  29.     SoftwareXmit: TCheckBox;
  30.     SoftwareRcv: TCheckBox;
  31.     Edit1: TEdit;
  32.     Edit2: TEdit;
  33.     OK: TButton;
  34.     Cancel: TButton;
  35.     Comports: TRadioGroup;
  36.     Bauds: TRadioGroup;
  37.     Paritys: TRadioGroup;
  38.     Databits: TRadioGroup;
  39.     Stopbits: TRadioGroup;
  40.     procedure OKClick(Sender: TObject);
  41.     procedure CancelClick(Sender: TObject);
  42.  
  43.   private
  44.     FComPort  : TApdComPort;
  45.     Executed  : Boolean;
  46.  
  47.   protected
  48.     function GetComPort : TApdComPort;
  49.     procedure SetComPort(NewPort : TApdComPort);
  50.  
  51.   public
  52.     constructor Create(AOwner: TComponent); override;
  53.     destructor Destroy; override;
  54.     function Execute: Boolean;
  55.  
  56.     property ComPort : TApdComPort
  57.       read GetComPort write SetComPort;
  58.   end;
  59.  
  60. var
  61.   ComPortOptions: TComPortOptions;
  62.  
  63.